home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 1
/
LIGHT-ROM 1 (Amiga Library Services)(1994).iso
/
ffdisks
/
d909.lha
/
GoldED2
/
Tools
/
HiSpeed
/
arexx
/
Index.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-08-28
|
1KB
|
49 lines
/* Print index. For those people who don't like the built-in index */
/* function. */
options results
shell
address HISPEED.1
SET REQUESTER ON
SET ASK "Print index file ?"
if RESULT = 1 then
do
QUERY JOBS /* anything to print ? */
if RESULT = 0 then
REQUESTFILE /* no, ask for files */
QUERY JOBS /* anything to print now ? */
if (RESULT ~= 0) then /* let's go ... */
do
SET COVER 'HiSpeed:ARexx/Index.PCL'
SET HEADER INDEX /* ask for index */
SET REQUESTER OFF /* turn off statistics display */
SCAN /* create index file T:INDEX */
SET REQUESTER ON /* enable requesters */
shell /* address AmigaDOS */
do
if OPEN('INIT', 'T:INIT', 'WRITE') then
do
R = WRITECH('INIT', '"r&l6D&k2G&a15L&a8R')
R = CLOSE('INIT')
'JOIN T:INIT T:INDEX AS PRT:'
end
end
end
end